home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 173 / 173.d81 / b.toon 173 (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  4KB  |  143 lines
  1. 10 poke56,56:poke55,0:clr:poke53371,0
  2. 12 t=173:t2=1:t$(0)=str$(t-3):t$(1)=str$(t):l(0)=128:l(1)=64
  3. 14 nm$="[196]aniel [210]obinson
  4. 16 ad$[178]"of (NULL)ansas lenity (NULL)(NULL)"
  5. 20 dv[178][194](186):[139]dv[179]8[167]dv[178]8
  6. 22 hz$[178]"tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantan"
  7. 24 sp$[178]"                                        "
  8. 26 eb$(0)[178]"  @    @  "
  9. 27 eb$(1)[178]" @    @   "
  10. 28 eb$(2)[178]"   @    @ "
  11. 30 [151]53281,0:[151]53280,0:[153]"load"
  12. 32 x[178]1:y[178]0:xx[178]36:yy[178]22:[141]100
  13. 34 [153][163]4)"forortantan=tantan^ ortantantantantan^ ortantantantantan^ ortantan^  or
  14. 35 printtab(4)"   [221]    [221]     [221] [221]     [221] [221]  [221]  [221]
  15. 36 [153][163]4)"   >    /tantantantantanexp /tantantantantanexp exp  /tantanexp
  16. 38 print"[152]        [212][200][197] [205][201][199][200][212][217] [204][207][193][196][211][212][193][210]"
  17. 40 print"     [212][207][207][206] [207][198] [212][200][197] [205][207][206][212][200] [195][207][206][212][197][211][212]
  18. 50 [139]g[167]120
  19. 60 g[178]1
  20. 70 [158]57812"toon.font",dv,0:[151]780,0:[151]781,0:[151]782,56:[158]65493
  21. 72 [151]53272,31
  22. 80 [158]57812"toon.ml",dv,0:[151]780,0:[151]781,0:[151]782,192:[158]65493
  23. 88 [158]57812"toon"[170]t$(0)[170]".shp",dv,0:[151]780,0:[151]781,0:[151]782,128:[158]65493
  24. 90 [158]57812"toon"[170]t$(1)[170]".shp",dv,0:[151]780,0:[151]781,0:[151]782,64:[158]65493
  25. 92 sc[178]204[172]256:[158]sc,96,92,56
  26. 96 [137]120
  27. 100 [151]214,y:[153]
  28. 102 [153][163]x)"or"[200](hz$,xx)"^"
  29. 104 [129]i[178]1[164]yy:[153][163]x)"(NULL)"[200](sp$,xx)"(NULL)":[130]
  30. 106 [153][163]x)"/"[200](hz$,xx)"exp"
  31. 108 [142]
  32. 120 [141]680:[151]214,9:[153]:[153]" 1cont mid$ust show list(NULL)oon"t$(t2)"cont."
  33. 130 [153]" 2cont (NULL)how list(NULL)oon"t$(t2)"cont and print it on a
  34. 140 print"   7-pin (1525-emulating) printer.
  35. 150 [153]" 3cont (NULL)how list(NULL)oon"t$(t2)"cont and print it on an
  36. 160 print"   8-pin ([197]pson-emulating) printer.
  37. 170 [139]t2[178]0[167][153]" poke4 valnter a caption for (NULL)oon"t$(1)".":[137]180
  38. 172 [153]" 4cont valnter a caption for list(NULL)oon"t$(1)"cont."
  39. 180 [153]" 5cont (NULL)oggle between list(NULL)oon"t$(0)"cont andlist"t$(1)"cont."
  40. 190 [153]" 6open (NULL)eturn to (NULL)(NULL)atnstr$(NULL)(NULL)atn(NULL).
  41. 200 poke198,0
  42. 206 ifrnd(1)>.98thenpoke214,3:print:printtab(13)eb$(rnd(1)*3)
  43. 210 geta$:ifa$<"1"ora$>"6"then206
  44. 220 a1=val(a$):ifa1=6then40000
  45. 222 ifa1=5thent2=1-t2:g=1:goto120
  46. 230 ifa1=4thenift2=1then690
  47. 240 ifa1=1then600
  48. 250 ifa1=2thentb=80:goto430
  49. 252 ifa1<>3then200
  50. 260 gosub680
  51. 270 poke214,11:print
  52. 280 printtab(7)"    [196][197][206][211][201][212][217]      [215][201][196][212][200]
  53. 290 [153][163]7)" 1cont (NULL)ingle       wide
  54. 300 printtab(7)" 2[154] [195]rt          normal
  55. 310 [153][163]7)" 3cont str$ouble       narrow
  56. 320 printtab(7)" 4[154] [196]ouble       wide
  57. 330 [153][163]7)" 5cont (NULL)uad         narrow
  58. 340 printtab(7)" 6[154] [209]uad         normal
  59. 342 [153][163]7)" 7open peekack to the (NULL)ain (NULL)enu
  60. 350 poke198,0
  61. 360 geta$:ifa$<"1"ora$>"7"then360
  62. 370 a2=val(a$):ifa2=1then ds=0:bt=1:tb=80
  63. 380 ifa2=2then ds=4:bt=1:tb=120
  64. 390 ifa2=3then ds=1:bt=1:tb=160
  65. 400 ifa2=4then ds=1:bt=2:tb=80
  66. 410 ifa2=5then ds=3:bt=2:tb=160
  67. 420 ifa2=6then ds=3:bt=3:tb=120
  68. 422 ifa2=7then30
  69. 430 gosub680
  70. 440 poke214,11:print
  71. 450 printtab(9)"    [212][193][194][160][208][207][211][201][212][201][207][206]
  72. 460 [153][163]9)" 1cont (NULL)eft
  73. 470 printtab(9)" 2[154]     [195]enter
  74. 480 [153][163]9)" 3cont         (NULL)ight
  75. 490 ifa2<>3anda2<>5then520
  76. 500 printtab(9)" 4[154]   [195]enter-left
  77. 510 [153][163]9)" 5cont       lenenter-right
  78. 512 printtab(9)" 6[159] [194]ack to [205]ain [205]enu
  79. 520 [151]198,0
  80. 530 [161]a$:[139]a$[179]"1"[176]a$[177]"6"[167]530
  81. 532 [139]a$[178]"6"[167]30
  82. 540 [139]a$[178]"1"[167]tb[178]0:[137]600
  83. 550 [139]a$[178]"2"[167]600
  84. 560 [139]a$[178]"3"[167]tb[178]tb[172]2:[137]600
  85. 570 [139]a2[179][177]3[175]a2[179][177]5[167]520
  86. 580 [139]a$[178]"4"[167]tb[178]53:[137]600
  87. 590 tb[178]266
  88. 600 [139]t2[178]0[167][141]930
  89. 608 [151]251,l(t2):[151]252,96:[151]253,92:[139]g[178]1[167][158]51456
  90. 610 [158]51459
  91. 620 [139]a1[178]2[167][158]49152,tb,128:[137]660
  92. 630 [139]a1[178]3[167][158]49155,tb,ds,bt,bt[172]320,128:[137]660
  93. 640 [151]198,0
  94. 650 [161]a$:[139]a$[178]""[167]650
  95. 660 [151]186,dv:[158]51459
  96. 670 [137]30
  97. 680 [151]214,8:[153]:[129]i[178]1[164]14:[153][163]2)[200](sp$,35):[130]:[142]
  98. 690 [151]251,64:[151]252,96:[151]253,92:[158]51456
  99. 700 [151]214,17:[153]
  100. 710 [158]51459
  101. 720 [158]sc[170]6,1,23,"print#valnter your caption here. (NULL)hen done,
  102. 730 syssc+6,1,24,"press [198]1. [208]ress [211][208][193][195][197] to begin.
  103. 740 [151]198,0
  104. 750 [161]a$:[139]a$[179][177]" "[167]750
  105. 760 [158]sc[170]6,0,23,"                                        "
  106. 770 [158]sc[170]6,0,24,"                                        stop"
  107. 780 [158]sc[170]6,1,23," waitcmd"
  108. 790 [151]198,0:[158]sc[170]3," waitcmd"
  109. 800 [161]a$:[139]a$[178]""[167]800
  110. 810 [139]a$[178][199](133)[167][158]sc[170]3," ":[158]51459:g[178]2:[137]200
  111. 820 [139]a$[178][199](20)[167][158]sc[170]3," cmdcmd":[137]790
  112. 830 [139]a$[178]"cmd"[167][158]sc[170]3," cmdcmd waitcmd":[137]790
  113. 840 [139]a$[178]""[167][158]sc[170]3,"  waitcmd":[137]790
  114. 850 [139]a$[178]""[167][158]sc[170]3," cmd waitcmd":[137]790
  115. 860 [139]a$[178]"on"[167][158]sc[170]3," oncmd waitcmd":[137]790
  116. 870 [139]a$[178][199](34)[167]790
  117. 880 [139]a$[178][199](13)[167][158]sc[170]3," "
  118. 890 [139]a$[177]"(NULL)"[167]790
  119. 900 [139]a$[177]"_"[175]a$[179]"atn"[167]790
  120. 910 [158]sc[170]3,a$
  121. 920 [137]790
  122. 930 [141]680
  123. 940 x[178]3:y[178]10:xx[178]32:yy[178]8:[141]100
  124. 950 [151]214,12:[153]
  125. 952 [153][163]7)"list(NULL)he winner of (NULL)(NULL)(NULL)(NULL)"t$(0)" iscont"
  126. 954 [153][163]20[171][195](nm$)[173]2)nm$
  127. 956 [153][163]20[171][195](ad$)[173]2)ad$
  128. 960 [153][163]6)"list(NULL)ress a key to see (NULL)oon"t$(0)"."
  129. 970 [151]198,0
  130. 980 [161]a$:[139]a$[178]""[167]980
  131. 990 [142]
  132. 10000 d[178][194](186):n$[178]"b.toon 173":[159]15,d,15,"s0:"[170]n$:[160]15:[148]n$,d:[128]
  133. 40000 [129]i[178]8[164]29:[151]820[170]i,i:[130]:[139]dv[177]8[175]dv[179]30[167][151]828,dv:[151]820[170]dv,8
  134. 40010 a$[178]"presenter":[141]40030:a$[178]"hello connect":[141]40030
  135. 40020 [153]"load":[151]53272,23:[151]186,8:[151]2048,0:[151]44,8:[151]43,1:[128]
  136. 40030 [129]j[178]8[164]29:i[178][194](820[170]j):[139]i[178]14[167][130]
  137. 40040 [160]2:[159]2,i,2:[160]2:[139]st[167]40060
  138. 40050 [160]15:[159]15,i,15,"r0:"[170]a$[170]"="[170]a$:[132]15,er:[160]15:[139]er[178]63[167]40070
  139. 40060 [130]:[142]
  140. 40070 a$[178]"hello connect":q$[178][199](34):[151]646,[194](53281):[153]"load":[151]53272,23
  141. 40080 [153]"loadp(NULL)2048,0:p(NULL)44,8:p(NULL)43,1:p(NULL)56,160:p(NULL)55,0:clr:l(NULL)"q$a$q$","i
  142. 40090 [153]"run:":[151]631,13:[151]632,13:[151]198,2:[128]
  143.